home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d13
/
pc_c9105.arc
/
WHEREIAM.BAS
< prev
Wrap
BASIC Source File
|
1991-04-16
|
696b
|
30 lines
10 CLS : PRINT "What is the message to display?" : PRINT
20 LINE INPUT MSG$
30 PRINT : PRINT "Press 'Q' at any time to end the screen blanker..."
40 FOR J = 1 TO 25000
50 J = J + 1
60 NEXT J
70 S=LEN(MSG$)
80 BACKCOLOR = 0
90 FRONTCOLOR = 3
100 ROWNUM = 4 : COLNUM = 7
110 COLOR FRONTCOLOR,BACKCOLOR
120 CLS
130 LOCATE ROWNUM,COLNUM
140 PRINT MSG$
150 L = 1
160 ROWNUM = INT(RND*20)+1
170 COLNUM = INT(RND*(80-S))+1
180 WHILE L
190 COLOR FRONTCOLOR,BACKCOLOR
200 LOCATE ROWNUM,COLNUM
210 PRINT TIME$
220 L = L + 1
230 IF L = 250 THEN L = 0
240 A$ = INKEY$
250 IF A$ = "q" OR A$ = "Q" THEN 280
260 WEND
270 GOTO 120
280 CLS
290 SYSTEM